home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / Locator.p < prev    next >
Encoding:
Text File  |  1990-04-03  |  3.1 KB  |  97 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: Locator.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-90
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT LOCATOR;
  11. INTERFACE
  12. USES TYPES;
  13. CONST
  14.  
  15. { Error Codes }
  16. toolNotFoundErr = $0001;
  17. funcNotFoundErr = $0002;
  18. sysStrtMtErr = $0100;  { can't mount system startup volume }
  19. tlBadRecFlag = $0103;  { StartStop record invalid }
  20. tlCantLoad = $0104;  { A tool cannot be loaded }
  21. toolVersionErr = $0110;
  22. messNotFoundErr = $0111;
  23. messageOvfl = $0112;  { No message numbers available }
  24. nameTooLong = $0113;  { Message name too long }
  25.  
  26. { MessageCenter Codes }
  27. fileInfoType = $0001;  { Message type parameter }
  28. addMessage = $0001;  { action parameter }
  29. getMessage = $0002;  { action parameter }
  30. deleteMessage = $0003;  { action parameter }
  31.  
  32. { TLMountVolume Codes }
  33. mvReturn = $0001;  { like ok for dialogs }
  34. mvEscape = $0002;  { like cancel for dialogs }
  35.  
  36. { Tool Set Spec Codes }
  37. sysTool = $0000;
  38. userTool = $8000;
  39. {$IFC UNDEFINED theToolsLength }  { ToolTable - default number of ToolSpecs }
  40. theToolsLength = $0010;
  41. {$SETC theToolsLength := 0}
  42. {$ENDC}
  43.  
  44. TYPE
  45. MessageRecHndl = ^MessageRecPtr;
  46. MessageRecPtr = ^MessageRec;
  47. MessageRec = RECORD
  48.     messageNext : MessageRecHndl;
  49.     messageType : Integer;
  50.     messageData : Integer;
  51.     fileNames : PACKED ARRAY[1..1] OF Str255;
  52. END;
  53. ToolSpec = RECORD
  54.     toolNumber : Integer;
  55.     minVersion : Integer;
  56. END;
  57. ToolTablePtr = ^ToolTable;
  58. ToolTable = RECORD
  59.     toolCount : Integer;
  60.     theTools : ARRAY[1..theToolsLength] OF ToolSpec;
  61. END;
  62. StartStopRecordPtr = ^StartStopRecord;
  63. StartStopRecord = RECORD
  64.     flags : Integer;
  65.     videoMode : Integer;
  66.     resFileID : Integer;
  67.     dPageHandle : Handle;
  68.     numTools : Integer;
  69.     theTools : ARRAY[1..theToolsLength] OF ToolSpec;
  70. END;
  71. ResponseRecord = Longint ;
  72. FUNCTION GetFuncPtr ( userOrSystem:Integer; funcTSNum:Integer) : Ptr ;
  73. FUNCTION GetTSPtr ( userOrSystem:Integer; tSNum:Integer) : Ptr ;
  74. FUNCTION GetWAP ( userOrSystem:Integer; tSNum:Integer) : Ptr ;
  75. PROCEDURE LoadOneTool ( toolNumber:Integer; minVersion:Integer)  ;
  76. PROCEDURE LoadTools ( theToolTablePtr:ToolTablePtr)  ;
  77. FUNCTION MessageByName ( createItFlag:Boolean; recordPtr:Ptr) : ResponseRecord ;
  78. PROCEDURE MessageCenter ( action:Integer; messagetype:Integer; messageHandle:MessageRecHndl)  ;
  79. PROCEDURE RestoreTextState ( stateHandle:Handle)  ;
  80. FUNCTION SaveTextState  : Handle ;
  81. PROCEDURE SetDefaultTPT   ;
  82. PROCEDURE SetTSPtr ( userOrSystem:Integer; tsNum:Integer; fptablePtr:FPTPtr)  ;
  83. PROCEDURE SetWAP ( userOrSystem:Integer; tSNum:Integer; waptPtr:Ptr)  ;
  84. PROCEDURE ShutDownTools ( startStopDesc:RefDescriptor; startStopRef:Ref)  ;
  85. FUNCTION StartUpTools ( userID:Integer; startStopRefDesc:RefDescriptor; startStopRef:Ref) : Ref ;
  86. PROCEDURE TLBootInit   ;
  87. FUNCTION TLMountVolume ( whereX:Integer; whereY:Integer; line1:Str255; line2:Str255; but1:Str255; but2:Str255) : Integer ;
  88. PROCEDURE TLReset   ;
  89. PROCEDURE TLShutDown   ;
  90. PROCEDURE TLStartUp   ;
  91. FUNCTION TLStatus  : Boolean ;
  92. FUNCTION TLTextMountVolume ( line1:Str255; line2:Str255; but1:Str255; but2:Str255) : Integer ;
  93. FUNCTION TLVersion  : Integer ;
  94. PROCEDURE UnloadOneTool ( toolNumber:Integer)  ;
  95. IMPLEMENTATION
  96. END.
  97.